DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


*eF ILE®*1D*¢*SYMBOL 


SSSSSSSS_ YY YY MM MM 88888888 000000 LL 
SSSSSSSS_ YY YY MM MM 688888888 000000 LL 
$$ YY YY MMMM MMMM BB BB 00 OO LL 
SS YY YY MMMM MMMM BB BB 00 oO LL 
$$ YY YY MM MM MM «OBB BB 00 OO LL 
$s yy YY MM MM MM «OBB BB 00 oO LL 
SSSSSS YY MM MM 88888888 00 OO LL 
SSSSSS YY MM MM 88888888 00 OO LL 
S$ YY MM MM 8B BB 00 oO LL 
$$ YY MM MM BB BB 00 OO LL 
SS YY MM MM BB BB 00 oO LL eee 
SS YY MM MM BB BB 00 oO LL eos 
SSSSSSSS YY MM MM 688888888 000000 LELLLELLLLL eeee 
SSSSSSSS YY MM MM B8888B8BB 000000 LELLLLLLLL eee 
LL MII! SSSSSSSS 
LL 1111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL Il SS 
LL I] $$ 
LL I] i 
LL I] SS 
LLELLLLLLLL HII] SSSSSSSS 
LLLLLLLLLL HI! SSSSSSSS 
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-TITLE SYMBOL = SYMBOL TABLE MANIPULATION ROUTINES 
IDENT ‘v04-000' 


PARA AAAAARAAAAAAALALALALALS ALES ASE A REE EERE EECA SER E SEE EEE EES EES ERECT 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bce P os THE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAt itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 
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V03-006 HWS0031 Harold Schultz 14-Mar-1984 
Add DELETE/SYMBOL/LOG 

v03-005 PCG0009 Peter George le~huge 1905 
Fix bug in binary symbol restoration logic. 

v03-004 PCG00C8 Peter George 27-May-1983 
Add PTRDEF reference. 

v03-003 PCG0007 Peter George 27-May-1983 
Add DCLSDELSYM. 

v03-002 PCG0006 Peter George 09-Mar-1983 


Call DCLSFIND KEYPAD. 
Add DCLSRESTORE_SYM. 


v03-001 PCG0005S Peter George 15-Nov-1982 
Do roundup in DEADYNMEM. Signal SPR error. 
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: MACRO LIBRARY CALLS 


I 
CTXDEF 
SCLIMSGDEF 


t 


OCTAB: .ASCIC /Local/ 


[9D OONOUME WN OOONOUS 


NN AOOOSSOOCOe 


GBLTAB: .ASCIC /Global/ 


aes ets Pad Bre IMR TT eT Pa 
PROCESS WORK AREA 


PAWN YMBOLS 
ERROR/STATUS VALUES 


-PSECT DCLSZCODE,BYTE,RD,NOWRT 
SYMBOL TYPE DESCRIPTION STRINGS FOR DEL/SYM/LOG 


Page (3) 
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voe-000 ALLOCATE AND INSERT ENTRY IN SYMBOL TABL 4-SEP-1 198¢ 98: 28: 3 DCL.SRCJSYMBOL .MAR; 1 fee &) 


«SBTTL ALLOCATE AND INSERT ENTRY IN SYMBOL TABLE 


DCLSALLOCSYMABR = ALLOCATE AND INSERT ENTRY IN sree TABLE W/ ABBREVIATION 
DCLSALLOCSYM = ALLOCATE AND INSERT ENTRY IN SYMBOL TABLE 

THIS ROUTINE IS CALLED TO ALLOCATE AND INSERT A SYMBOL ENTRY IN EITHER THE 
LOCAL OR GLOBAL SYMBOL TABLE. 


INPUTS: 
R11 = ADDRESS OF PROCESS WORK AREA 


= TYPE OF SYMBOl VALUE (SYM_K_ STRING OR SYM_K_BINARY) 
ine = DESCRIPTOR OF SYMBOL VAL OE 
a 


0 YMBOL AME. 
ADDRESS OF SYMBOL TABLE LISTHEAD. 
SSUMED THAT CONTROL Y/C AST‘S ARE DISABLED. 


> on 


I 
OUTPUTS: 


THE SPECIFIED SYMBOL TABLE IS SEARCHED FOR THE SPECIFIED ENTRY. AND 
IF FOUND, THE OLD EN NTRY IS DEALLOCATED. A SYMBOL TABLE ENTRY I$ THEN 
ALLCCATED, FILLED WITH THE SYMBOL AND VALUE INFORMATION, AND THEN 
INSERTED IN THE SPECIFIED SYMBOL TABLE. 


RO LOW BIT CLEAR INDICATES ALLOCATION FAILURE WITH: 
DCL$_SYMOVF = NO ROOM FOR SYMBOL DEFINITIONS. 


RO = DCLS"SYMDEL = ABBREVIATED SYMBOL NOT ALLOWED. 
= DCLS_ABSYMD = AMBIGUOUS SYMBOL DEFINITION. 


IS 


@D 
oO 
" 


RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 


Ri =_ADDRESS OF ALLOCATED SYMBOL ENTRY. 
R2,R3,R4,R5 ARE DESTROYED. 


SOOoCOOCSOOCOOSOOOOOSOOOSOOSOSOOOSOOSSOOSOOSOSOSOOOSOSOOSOOSOSOOOOOOOOOOOOSCOO 


SOOOOOCCOCOCCOOCOCOSoSooOOOSoOOOOOoOCOoOSoOSooOSoOSoS 
DNAS WN" OODNAOUEA WM OOWONAUFS WN $9 ODA EWN 9 LONAM EWN OOONOUS Ww 


RIPIPOPONINPINDNINS 2 9 SS F MQOOOOOOOCOCOCOCOOOOOOOOOOMDOcccDcD CD CN ON ~~ 


1 
1 
1 
1 
| 
1 
1 
1 
1 
i 
111 DCLSGT_SYMABR: : ;ABBREVIATED SYMBOL COUNTED STRING 
2A 00' 1 sASCIC. '#! 
01 : 
114 DCLSALLOCSYMABR: : ;ALLOCATE AND INSERT SYMBOL IN TABLE 
F et 1 PUSHR #*M<RO, R} -R2 R3,R4,R5> :SAVE SYMBOL ENTRY pPARAMET ERS 
“an >» 1 LOCC 3 =—«s_s #*A'# R35 (RL) [FIND THE ABBREVIATION FLAG 
0 bp 1 PUSHL RO [SAVE NUMBER OF EXTRA CHARACTERS 
22 «1 1 BEQL  ALLOCSYM [BRANCH IF NOT ABBREVIATED 
6— 07 1 DECL (SP) SREMOVE THE ABBR CHAR FROM EXTRA COUNT 
AE 07 1 DECL 16(SP) SREMOVE THE ABBR CHA AME COUNT 
61 O1Al 6€ 28 1 MOVE = (SP) 1Rt), (R1) SLIDE REMAINING CHARACTERS" OVER IT 
16 «11 BRB ALLOCSY 
124 DCLSALLOCSYM:: ZALLOCATE AND INSERT SyMBOL IN TABLE 
F 8B 1 PUSHR #*M<RO,R1,R2,R3,R4,R5> :SAVE SYMBOL ENTRY PARAMETERS 
E ps 1 CLRL = = (SP [SET NO ABBREVIATION 
64 53 2A 3A 1 LOCC = #*A #* RB, (RG) ‘FIND THE ABBREVIATION FLAG 
C 13 1 BEQL § ALLOCSYM [OK IF NONE F 


7: oe 
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ALLOCATE AND INSERT ENTRY IN SYMBOL TABL 1984 DCL.SRCJSYMBOL .MAR; 1 (3) 
5 ¢ AE 9 F 129 MOVAB 7#4(SP),SP :CLEAN STACK 
50 00038278 B&F p ; 0 MOVL #CLIS_SYMABR,RO [SET NO SYMBOL ABBREVIATIONS STATUS 
OB 138 
B 134: (SP) = # NONUNIQUE CHARACTERS (AFTER *) 
B 135; 4(SP) = TYPE OF SY LUE 
B 1 § ; 8(SP) = DESCRIPTOR OF , SYMBOL VALUE 
B 137; 16(SP) = DESCRIPTOR YMBOL N 
8 g : ; 24(SP) = ADDRESS OF OYMBOL TABLE LISTHEAD 
0 B 140 ALLOcSYM: 
55 4 14 CLRL RS ;START WITH FULL SYMBOL NAME 
51 10 AE D 003D 148 10$ MOva 1<SP) .R1 SRESET SYMBOL PARAMETERS 
5 C2 041 14 SUBL = R5,R1 ‘FIND SIZE TO SEARCH FOR THIS TIME 
50° 18 AE 044 144 MOVL 24(SP),RO 7SET ADDRESS OF SYMBOL TABLE LISTHEAD 
01 0 0048 145 BSBW DCLSSEARCHT ;SEARCH FOR SYMBOL 
11 9 0048 146 BLBC RO, 308 SIF LBC SEARCH FAILURE 
01 OAA 1 4 14 CMPB = SYM_B_TYPE(R3) ,#SYM_K_PERM ;PERMANENT SYMBOL? 
74 #13 005 148 BEQL SYMOVF ;IF YES = REFUSE TO ALLOCATE 
0094 149 ASSUME SYM_B_NONUNIQUE EQ SYM_T’SYMBOL-1 
51 7 51 83 0054 150 SUBB3 -R1,=(R4),R1 TFIND SYMBOL'S NEW 
51 97 #0058 «151 ECB. : UNIQUENESS POINT 
63 1E 005A 138 BGEQU ABSYMD SIF GEQ, AMBIGUOUS SYMBOL 
0086 30 005c 15 BSBW DCL SDEALLOCSYM [DEALLOCATE SYMBOL ENT 
ro 55 6F F O05 134 30$:  AOBLEQ (SP),R5,10$ ‘LOOP IF MORE SYMBOLS "0 CHECK 
10 AE OB AE C1 pes 156 ADDL3 8(SP),16(SP),R1 :CALCULATE LENGTH OF SYMBOL STRINGS 
eee en SNEG eae {BRANCH IFCNOT 
10 AE 04 C1 006F 133 ADDL3 #4,16(SP),R1 [SET LENGTH OF SYMBOL PLUS LONGWORD 
51 OF CO 0074 160 40$: ADDL #SYM_T SYMBOL +3, R1 sADD IN FIXED OVERHEAD AND ROUND 
5¢ 19 0077 161 BSBB DCLSALCD NMEM TALLOCATE DYNAMI 
4c 50—eY 9079 16¢ BLBC = RO, SYM LBC ALLOCATION FAILURE 
08 a2 51 «0s 007C:—ts«é16 MOVL R1,SYM yr SIZE (R2) SET SIZE OF ALL ScATeD “BLOCK, ETC. 
0B A2 BE F6 0080 164 CVTILB  (SP)+, SY A “B_N NON NUNI QUE (R ” -SET UNIQUENESS POINT 
OA A2 BE F6 0084 165 CVTLB (SP) +. SY mest E(R2) sSET SYMBOL VALUE TYPE 
10 BE 6 3 088 166 INSQUE SYM . LCR y, a8 (SP) i INSERT ENTRY IN SYMBOL TABLE 
19 AE 5 p 08C 167 MOVL R2,T6TSP AVE ADDRESS OF NEW ENTRY 
53 08 At D 0090 168 MOVG RtéP) as :GE1 SYMBOL NAME 
0C A253) «90-0094 169 MOVB R3. SYA T_ SYMBOL (R2) NSERT LENGTH OF SYMBOL 
OD a2 64 «2653 )=«=28 «0098 ~=—s«170 MOVC =sR (ROY, SYR_T OS YMSOL+1 (RB): “INSERT SYMBOL NAME 
51 6€ 7D 009D 171 MOVQ (S5P),R 7GEt SYMBOL VALUE 
50° 10 AE po AO 1% MOVL 1ecabo RO sRETRIEVE RoDnESS OF ENTRY 
02 OAA AG (O17 CMPB St B_fYPE(RO).#SYM_K_BINARY ;BINARY VALUE? 
05 12 OOA8 17% BNEQ 0s ;BRANCH IF STR NG VALUE 
83 } 20 AA 125 MOVL gos "3" [STORE LONGWORD BINARY VALUE 
83 gf 80 AF 199 50$:  MOVW R1,(R 7. :INSERT LENGTH OF STRING VALUE 
63 62 51 178 MOVC RI (Re) SINSERT STRING VALUE 
é BA 179 60S: POPR #*M<R1 7 ae" He R4,R5> RESTORE REGIST tr RS 
51 DO 180 MOVL  R5,R1 :RETUR N ADDRESS OF SYMBOL ENTRY 
50 01 «~»0 BB 181 MOVL #1.RO 7SET SUCCESS INDICATOR 
5 : : RSB : 
OBE 184 -ENABL LSB 
OBF 185 


voe=060 i EGER LABUEMMAMPUGAT EON POULIN, TESEDIRRS 00:28:28 EDcLNSRcHSimsousmans1 = PAF 8, 
F § ABSYMD: STATUS ti ;SET AMBIGUOUS SYMBOL STATUS 
oe i BRB 90$ 


on 
Ht 


1 
1 : — STATUS SYMOVF :SET sven, TABLE 7 ga STATUS 
SE 8 CO QOCF 190 90S: ADDL #8,SP ;POP_OFF TOP 2 LONGWORDS 
E BA Q0D2 191 POPR #*M<R1,R2,R3,R4,R5> ;RESTORE REGISTERS 
0S 0004 19 RSB 
005 19 
065 194 -DSABL LSB 
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v04 ALLOCAT NTRY IN SYMBOL TABL DCL. SRCJSYMBOL.MAR; 1 
i) 1 3¢ 
p : DCLSALLDYNMEM = DISPATCH TO MEMORY ALLOCATION SUBROUTINE 
p 193 : ENTER HERE TO DISPATCH TO THE MEMORY ALLOCATION ROUTINE 
p 1: INPUT: 
D : : R11 = ADDRESS OF PROCESS WORK AREA 
p 4 ; Ri = SIZE OF BLOCK 
OD $ + OUTPUTS: 
8p 8; Ri = SIZE OF BLOCK ALLOCATED 
0D 09 : R2 = ADDRESS OF BLOCK 
0D 10: R3 1S DESTROYED 
ee 
005 i DCLSALLDYNMEM: : ;ALLOCATE DYNAMIC MEMORY 
53 20 a8 9E 0005 214 MOVAB PRC Q_ALLOCREG(R11),R3 GET ADDRESS OF ALLOCATION LISTHEAD 
51 07 CO 00D9 15 ADDL poe ;ROUND UP TO QUADWORD BOUNDARY 
51 07 (CA OODC 216 BICL [TRUNCATE TO QUADWORD MULTIPLE 
00000000'9F 17 OODF 217 JMP CN te SALLOCATE SYMBOL TABLE ENTRY 


6 
(4) 
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yee 650 DEALLOCATE SYMBOL tabte ENTRY pat et} 90:28:25 DCL.SRCJSYMBOL MAR; 1 . 
3 ? M «SBTTL DEALLOCATE SYMBOL TABLE ENTRY 
E ; DCLSDEALLOCSYM = DEALLOCATE SYMBOL TABLE ENTRY 
E ; ; DCLSDEADYNMEM = DEALLOCATE DYNAMIC MEMORY 
E 4 : THIS ROUTINE IS CALLED TO REMOVE A SYMBOL FROM ITS TABLE AND/OR 
i 5 3 DEALLOCATE DYNAMIC MEMORY USED. 
E § : INPUTS TO DEALLOCSYM: 
E § : R11 = ADDRESS OF PROCESS WORK AREA 
OE 0 ; R3 = ADDRESS OF SYMBOL ENTRY. 
OE ; : INPUTS TO DEALDYNMEM: 
0&5 4: R11 = ADDRESS OF PROCESS WORK AREA 
O€ 5: RO = ADDRESS OF BLOCK TO DEALLOCATE 
QO g ; Ri = SIZE OF BLOCK 
O0E> g : IT IS ASSUMED THAT CONTROL Y/C AST'S ARE DISABLED. 
O0E> 40 : OUTPUTS: 
OES 43 : THE SYMBOL IS REMOVED FROM ITS TABLE AND/OR ITS STORAGE IS DEALLOCATED. 
0065 244° 
O0E> 45 DCLSDEALLOCSYM: : sDEALLOCATE SYMBOL TABLE ENTRY 
50 63 OF OOES 246 REMQUE SYM_L_FL(R3),RO [REMOVE SYMBOL ENTRY FROM ITS TABLE 
51° 08 AO 3C O0EB 247 MOVZWL SYM~W7SIZE(RO),R1 :GET SIZE OF BLOCK TO DEALLOCATE 
OOEC 248 DCLSDEADYNMEM: : [DEALLOCATE DYNAMIC MEMORY 
51 O07 CO OOEC 249 ADDL —«#7,R1 [ROUND UP TO QUADWORD BOUNDARY 
51 07 «CA OOEF 250 BICL 4#7.R1 [TRUNCATE TO QUADWORD MULTIPLE 
53 20 AB OSE «(00F2 = (251 MOVAB PRC Q_ALLOCREG(R11),R3 :GET ADDRESS OF ALLOCATION LISTHEAD 
00000000'9F 17 O0F6 252 JMP awe RESDEALLOCATE :DEALLOCATE SYMBOL ENTRY STORAGE 
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FC ‘ - ~SBTTL CONVERT SYMBOL VALUE TO STRING 
Fe $ ; DCLSSYM_STRING = GET SYMBOL VALUE AND CONVERT TO A STRING 
FC § : THIS ROUTINE IS CALLED TO SEARCH ALL LOCAL AND GLOBAL SYMBOL TABLES FOR 
FC : A SPECIFIED SYMBOL, AND TO RETURN THE STRING FORM OF THE SYMBOL VALUE. 
FC 260 : THAT IS, IF THE StABOL VALUE IS NUMERIC, IT IS CONVERTED TO ASELL ADEE IMAL 
Fe 2 ; BEFORE “seins RETORNEDE 
FC e§ : INPUTS: 
FC $5 : R11 = ADDRESS OF PROCESS WORK AREA 

OFC 85 : R1 = LENGTH OF SYMBOL. 

oF ¢ 68 ; R2 = ADDRESS OF SYMBOL. 

dort 3 : OUTPUTS: 
FC 71 ; 

OOFC re : RO = STATUS 

OOFC 273: R1 = LENGTH OF VALUE STRING 

OOFC 27%: Re = ADDRESS OF VALUE STRING 

OOFC 275: R3 = DESTROYED 

OOFC 2 ; R4 = TABLE FLAG 

OOFC 277: 1 ==> FOUND IN LOCAL SYMBOL TABLE 

OOF C 28 ; 2 ==> FOUND IN GLOBAL SYMBOL TABLE 

OOFC 280: THE STRING MAY ACTUALLY RESIDE IN EITHER THE SYMBOL TABLE OR 

OOFC 281: IN THE UNUSED PORTION OF THE EXPANSION BUFFER. IT IS THE CALLER'S 

oor 8 3 RESPONSIBILITY TO COPY THE STRING BEFORE USING THE EXPANSION. BUFFER. 

OOFC 284 ° 

OOFC 285 DCLSSYM_STRING:: 

19 10 OOFC 286 BSBB  DCLSSEARCH ; SEARCH ALL SYMBOL TABLES 
03 50 £8 OOFE 287 BLBS RO. DCLSCVT_STRING : BRANCH IF NOT FOUND 
51 D4 o101 88 CLRL sR : RETURN NULL STRING ON ERROR 


® 
oS 
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04-000 


ot 
Su 
<< 


E 
a «SBTTL CONVERT EXPRESSION RESULT TO STRING 
DCLSCVT_STRING = CONVERT EXPRESSION RESULT TO A STRING 
IF THE SYMBOL VALUE IS NUMERIC, IT IS CONVERTED TO ASCII DECIMAL. 
INPUTS: 
R11 = ADDRESS OF PROCESS WORK AREA 


: IF R 


RT 
1 91 
1 9 
ioe 59: 
1 94; 
104 95 
104 96 
104 % 
104 38 
194 00 : 
104 1 R1/R2 = QUAD ORD DESCRIBING VALUE: 
104 § IF R2 NONZERO, QUADWORD IS A STRING DESCRIPTOR 
4 ; MERO. Ri 1S A BINARY LONGWORD VALUE 
104 5 ; OUTPUTS: 
104 06 
104 4 : RO = STATUS 
104 g : Ri = LENGTH OF VALUE STRING 
4 4 09 ; R2 = ADDRESS OF VALUE STRING 
104 10 ; R3 = DESTROYED 
0106 i: : R4 = PRESERVED 
0104 18 THE STRING MAY pACTUALLY RESIDE IN EITHER THE SYMBOL TABLE OR 
0104 14 IN THE UNUSED PORTION CF THE EXPANSION BUFFER. IT IS THE CALLER'S 
0106 15 ; RESPONSIBILITY TO COPY THE STRING BEFORE USING THE EXPANSION BUFFER. 
0104 i$ 
01064 18 DCLSCVT_STRING:: 
52 DS 0104 19 TSTL R2 3 NUMERIC VALUE? 
0B 12 0106 0 BNEQ 908 3; BRANCH IF STRING 
50 51 00 9108 1 VL R1,RO 3 GET BINARY VALU 
54 bb 108 ¢ PUSHL R ; SAVE R& (JUST IN CASE) 
FEFO" 30 0100 BSBW DCLSCBTA_DEC ; CONVERT TO ASCII IN EXPANSION BUFFER 
54 BE 00 0119 4 MOVL (SP)+, RZ 3 RESTORE SAVED 
50. (01 b0 011 5 90S: MOVL #1,R0 3 SET SUCCESS 
05 0116 6 RSB 


DOOWNS9 FW WL $.., 
ub 
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~SBTTL SEARCH FOR SYMBOL ENTRY 
; DCLSSEARCH - SEARCH FOR SYMBOL ENTRY 


+ 


THIS ROUTINE IS CALLED TO SEARCH ALL LOCAL AND GLOBAL SYMBOL TABLES FOR 
ENTRY. THE LOCAL SYMBOL TABLES FOR EACH OF THE INDIRECT LEVELS ARE 
FIRST SEARCHED. IF  WOTHING FOUND, THE GLOBAL SYMBOL TABLE IS SEARCHED. 


R11 = ADDRESS OF PROCESS WORK AREA 


= LENGTH OF SYMBOL. 
Re = ADDRESS OF SYMBOL. 


OUTPUTS: 


RO = STATUS 

R1/R2 = QUADWORD DESCRIBING SYMBOL VALUE : 
IF R2 NONZERO, QUADWORD IS A STRING DESCRIPTOR 
IF Ro ZERO, Ri IS A IBINARY LONGWORD VALUE 

R3 = ADDRESS OF SYMBOL ENTR 

R4 = TABLE FLAG 

5 A. FOUND IN LOCAL SYMBOL TABLE 
2 ==> FOUND IN GLOBAL SYMBOL TABLE 


DCLSSEARCH: : SEARCH FOR SYMBOL ENTRY 
BSBW DCLSSEARCH_LOCAL SEARCH LOCAL SYMBOL TABLES 
MOVL #1,R4 : INDICATE oA SYMBOL TABLE MATCH FOUND 
BLBS RO,10$ :1F LBS MATCH FOUND 
BSBW DCLSSEARCH_GLOBAL ;SEARCH GLOBAL SYMBOL TABLE 
MOVL . : INDICATE GLOBAL SYMBOL TABLE MATCH FOUND 
BLBS RO,10$ :1F LBS MATCH F 

10$ seat R1 RETURN NULL STRING IF NO MATCH 
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~-SBTTL SEARCH FOR SYMBOL ENTRY IN A LOCAL SYMBOL TABLE 
DCLSSEARCH_LOCAL = SEARCH FOR SYMBOL ENTRY IN A LOCAL SYMBOL TABLE 


THIS ROUTINE IS CALLED TO SEARCH ALL_LOCAL SYMBOL TABLES FOR AN ENTRY. 
THE LOCAL SYMBOL TABLES FOR EACH OF THE INDIRECT LEVELS ARE SEARCHED. 


INPUTS: 
R11 = ADDRESS OF PROCESS WORK AREA 


Ri = LENGTH OF SYMBOL. 
R2 = ADDRESS OF SYMBOL. 


OUTPUTS: 


RO = STATUS 

R1/R2 = QUADWORD DESCRIBING SYMBOL V 
IF R2 NONZERO, QUADWORD IS A 
IF R2 ZERO, Ri IS A BINARY L 

R3 = ADDRESS OF SYMBOL ENTRY. 


+ 


ALUE: 
STRING DESCRIPTOR 
ONGWORD VALUE 


Sete Ge Se Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge See Se Se Se Se Se 


DCLSSEARCH _LOCAL:: ;SEARCH FOR SYMBOL ENTRY IN LOCAL TABLE 
DISABLE DISABLE CTRL/Y'S TO GUARANTEE INTEGRITY 
sOF PRC_Q LOCAL(R11) 
E 38 AB 7D va PRC_Q_LOCAL(R11),-(SP) ;SAVE CORRENT LOCAL SYMBOL TABLE LISTHEAD 
QOAO CB DD PUSHL PRC“L-STACKPT(R11) SAVE ADDRESS OF INDIRECT STACK POINTER 
50 38 AB +3 5$: MOVAB = PRC_Q_LOCAL(R11) RO SET ADDRESS OF LOCAL SYMBOL TABLE LISTHEAD 
49 1 BSBB DCLSSEARCHT SEARCH LOCAL SYMBOL TABLE FOR ENTRY 
15 50 €8 BLBS RO, 108 c1F_L H FOUND 
50. 8— 00 MOVL (SP)+,RO sRETRIEVE ADDRESS OF INDIRECT FRAME 
74 A0 OF PUSHAB IDF_K_LENGTH(RO) ;CALCULATE ADDRESS OF NEXT FRAM 
38 AB 0084 CO) 3=— 7D mova IDF Q LOCAL+IDF_K_LENGTH(RO),PRC_Q LOCAL(R11) ;REPLACE LISTHEAD 
E6 SE AO 28 EO BBS #1DF_V_INPOPN, IDF~W_FLAG(RO),5$ SIF SET, SEARCH NEXT TABLE 
0 04 CLRL RO NO MATCH FOUND 
02. 11 BRB 208 
9 10 10$: BSBB GET VALUE GET THE SYMBOL VALUE 
. & 208: TSTL (SPT+ CLEAN STACK 
38 AB —e 7d MOVQ (SP)+,PRC_Q_LOCAL(R11) ;RESTORE LOCAL SYMBOL TABLE LISTHEAD 
05 caneLe sREENABLE CTRL/Y'S 


GET DESCRIPTOR (R1/R2) OF SYMBOL VALUE. 
R2=0 ==> VALUE IS AN INTEGER 


roror 
MRO OO NOUNS WIN 2 OOD NA UNE WIN 8 OD NAN EWN 3 9 OD NAME WN O OONOUS Wit" 0O 
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GET_VALUE : 
52. OC_A3 9A MOVZBL SYM_T_SYMBOL(R3) R? -GET LENGTH OF SYMBOL 
52. OD A342 9 MOVAB SYM“T"SYMBOL+1(R$)CR2J,R2 ;GET ADDRESS OF VALUE LENGTH 
02 OAAS 9 CMPB SYM~B~TYPE(R3) ,#SYM_K_BINARY sNUMERIC BINARY VALUE? 
0? (1 BNEQ 0$ ; IF NOT 
51 D MOVL  (R2),R? :GET LONGWORD BINARY VALUE 
D4 CLRL Re :MARK NOT A STRING 
11 BRB 208 


Vou=000 RCH FOR SYABOL” mANJULATION ROUTINES a, "OSEb= 1382 99:28:25 POEL YSRcS8bmBoL mans Poor th) 
51 82 oa 9 i JOS: MOVZWL (R2)+,R1 GET LENGTH OF VALUE 3 | 


17) =4 
17D 425 
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v04 SEARCH FOR SYMBOL ENTRY IN GLOBAL SYMBOL 4-SEP-1984 23:43:47 (CDCL.SRCJSYMBOL.MAR; 1 (10) | 
12 4 7 : .SBTTL SEARCH FOR SYMBOL ENTRY IN GLOBAL SYMBOL TABLE | 
120 é : > DCLSSEARCH_GLOBAL = SEARCH FOR SYMBOL ENTRY IN GLOBAL SYMBOL TABLE | 
120 4 1 : THIS ROUTINE IS CALLED TO SEARCH THE GLOBAL SYMBOL TABLE FOR AN ENTRY. | 
17D 4 5 : INPUTS: 
170 434; 
12 4 5: R11 = ADDRESS OF PROCESS WORK AREA | 
170 4 $ : Rl = LENGTH OF SYMBOL. 
170 «4 : : R2 = ADDRESS OF SYMBOL. 
170 «439: | 
17D 440 ; OUTPUTS: 
17D 441: 
017 ate : RO = STATUS 
17D «443: R1/R2 = QUADWORD DESCRIBING SYMBOL VALUE: 
017D 444: IF R2 NONZERO, QUADWORD IS A STRING DESCRIPTOR 
017D 445: IF R2 ZERO, Ri IS A BINARY LONGWORD VALUE 
017D 446: R3 = ADDRESS OF SYMBOL ENTRY. 
017D 447: 
017D 4448 ;- 
017D 449 
017D 450 DCLSSEARCH_GLOBAL:: -  sSEARCH FOR SYMBOL ENTRY IN GLOBAL TABLE 
50 28 AB 9E O17D 451 MOVAB PRC_Q GLOBAL(R11),RO  :SET ADDRESS OF GLOBAL SYMBOL TABLE LISTHEAD| 
06 10 0181 43¢ BSBB = DCLSSEARCHT ‘SEARCH GLOBAL SYMBOL TABLE FOR ENTRY 
0250 €9 0183 45 BLBC ~—_ RO, 108 ‘IF LBC NO MATCH FOUND 
DB «10 «(0186 ) | 454 BSBB «GE f_VALUE [GET THE SYMBOL VALUE | 
05 0188 435 10$: RSB : | 
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.SBTTL SEARCH SPECIFIC SYMBOL TABLE FOR ENTRY 
; DCLSSEARCHT = SEARCH SPECIFIC SYMBOL TABLE FOR ENTRY 
: THIS ROUTINE IS CALLED TO SEARCH A SPECIFIC SYMBOL TABLE FOR AN ENTRY. 
INPUTS: 


wet 
mn 
pw 
mD~< 
o 


SY 
v04- 


RO = ADDRESS OF SYMBOL TABLE LISTHEAD. 

R1 = LENGTH OF SYMBOL 

R2 = ADDRESS OF SYMBOL NAME. 

OUTPUTS: 

RO LOW BIT CLEAR INDICATES SEARCH FAILURE. 
Ri = LENGTH OF SYMBOL NAME. 
Re = ADDRESS OF SYMBOL NAME. 
R35,R4 ARE DESTROYED. 

RO LOW BIT SET INDICATES SYMBOL FOUND WITH: 


Ri = LENGTH OF a t's NAME. 


wOOODOOOOOOVOOVOOOOOOOO 


Me 
OL ENT 
R4 = ADDRESS OF SYMBOL NAME "STRING (JUST PAST THE COUNT). 


PEELE LP LRP LER 
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4 6 DCLSSEARCHT:: 7SEARCH SPECIFIC SYMBOL TABLE FOR ENTRY 
53 40 AB 9E 4 MOVAB PRC_Q_KEYPAD(R11),R3 GET ADDRESS OF KEYPAD TABLE 
a. w 488 CMPL RO,R3 :1S IT THE ONE WE WANT? 
28 13 489 BEQL 308 ‘YES, THEN BRAN 
53 9 D0 490 MOVL _RO,R3 :COPY ADDRESS OF SYMBOL TABLE LISTHEAD 
33 g DO 491 10$:  MOVL SYM b-FLCR3) .R3 [GET ADDRESS OF NEXT ENT 
5 0 01 49¢ CMPL ~=sROR SEND OF TABLE? 
iF 0 13 49 BEQL tIF EQL YES 
54 OC Ad 9E 49% MOVAB SYM_T_SYMBOL(R3),R4 [GET ADDRESS OF SYMBOL NAME 
“a Te 495 CMPBsaR}1, TRZ) : SYMBOL LENGTH TOO LONG? 
EF 1A 49 BctRu 108 sIF GTRU YES 
7E 84 OB A3 83 49 5UBB3 SYM_B_NONUNIQUE(R3),(R4)+ TCSP sFORM UNIQUE LENGTH 
8 51 91 498 CMPB) —saR}'1, (SP) + :SYMBOL LENGTH TOO SHORT? 
5 oF E 499 BLssu 108 SIF LSSU YES 
F BB 500 PUSHR amr R1,R2,R3> :SAVE SEARCH PARAMETERS 
64 62 51 2 2 1 CMPC R25, (R4) :SYMBOLS MATCH 
OF BA 6 é POPR Stace al RR, R3> *RESTORE SEARCH PARAMETERS 
DB 12 BNEQ 108 [IF NEQ N 
06 A 4 INCL RO [SET SUCCESS INDICATOR 
9 ¢ i 20$: RSB ; 
FE4O" 30 D $ 30$:  BSBW DCLSFIND_KEYPAD :CALL KEYPAD SYMBOL SEARCH ROUTINE 
05 0 508 RSB {RETURN 
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ON AFTER A SPAWN  4=SEP-19 DCL.SRCJSYMBOL .MAR; 1 
4 «SBTTL RESTORE SYMBOL DEFINITION AFTER A SPAWN 

; DCLSRESTORE_SYM = RESTORE SYMBOL DEFINITION AFTER A SPAWN 

; THIS ROUTINE IS CALLED TO RESTORE A SYMBOL AFTER A SPAWN. 


; INPUTS: 
RO = SYMBOL TYPE 
R1/R2 = DESCRIPTOR OF SYMBOL ae 
She = DESCRIPTOR OF SYMBOL NAME 
R5 = ADDRESS OF SYMBOL TABLE YTSTHEAD 
R6 = ADDRESS OF CTX BLOCK 
R11 = ADDRESS OF PROCESS WORK AREA 

; OUTPUTS: 


THE SYMBOL IS ADDED TO THE TAIL OF THE SYMBOL TABLL. 


RO LOW BIT CLEAR INDICATES ALLOCATION FAILURE WITH CLIS_SYMOVF. 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 


OCLORES TONS SYM:: 
USAR #*M<RO,R1,R2,R3,R4> SAVE THE REGISTERS 


: ALLOCATE THE SYMBOL. 


ADDL § #SYM_T_SYMBOL+3,R GET size oe os yneo NEEDED 
CHP #SYM~K-BINARY, abn :BINAR MBOL 
‘i. ROVL #SYM_T_SYMBOL+3+4,R1 ‘Sef sige oF SYMBOL NEEDED 
: BSBW  DCLSALLDYNMEM SALLOCATE DYNAMIC MEMORY 
BLBC ~—_« RO, 908 [IF LBC ALLOCATION FAILURE 


; INITIALIZE THE STATICALLY PLACED FIELDS AND INSERT IT IN THE LINKED LIST. 


MOVW sR, sim W_SIZE(R2) 3s" SIZE OF ALLOCATED BLOCK 

MOVB Ti RORUNI QUE (RE) , »SYM_B_ FLAGS(R d SET pk tPA LAGS 

MOVB sPy,S AVAL TYPE 

CMPB ar. K YREYPAD. (SP) +1 a SYMBOL? 

BNEQ NO 

INSQUE (R2),@4(R5S) SINGER ENTRY AT TAIL OF TABLE 
10S: INSQUE (R2),(R5) [INSERT ENTRY AT HEAD OF TABLE 
+ INITIALIZE THE DYNAMICALLY PLACED ASCIC FIELDS. 
20$: mova ! (SP),R3 :GET SYMBOL NAME 

MOVB SYM. 1 SYMBOL (R2) [INSERT LENGTH OF SYMBOL 

MOVC *(R4T,SYM_T “SYMBOL #1 (R2) SINSERT SYMBOL NAME 

CMPB asin. K_BINARY? (SP) :BINARY VALUE 

BNEQ 308 :NO, THEN SKIP 


83 04 ag 

83 4 AE 

63 08 BE bc “ 
50.001 

1F 


Me 1 OOOO 
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dD 6 

ATION ROUTINES 16-SEP-1984 00:22: 
ION AFTER A SPAWN a et} 90:29:25 

MOVL 4 (SP) ,(R3)¢ 

BRB 40 

MOV 4(SP),(R3)¢ 

MOVC 4(SP)-@8 (SP), (R3) 

POPR #*m<RO,R1,R2,R3,R4> 

mOVL #1,R0 


> RETURN SYMBOL TABLE OVERFLOW STATUS. 
28 $0s: 
0 


POPR ne. R1,R2,R3,R4> 
STATUS SYMO 
RSB 


AX/VMS Macro v04-00 Page 18 
DCL.SRCJSYMBOL .MAR; ? (12) 


: INSERT THE VALUE 
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TORE THE REGISTERS 
SYMBOL TABLE OVERFLOW STATUS 


Sete 
“ow 
mn 
“Mm 
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DELETE SYMBOL FROM SYMBOL TABLE pat et 90:28:25 EOCL SRCISYMOOL MARS 1 walt 
4 : : .SBTTL DELETE SYMBOL FROM SYMBOL TABLE 
2 ¢ ; DCLSDELSYM = DELETE SYMBOL FROM SYMBOL TABLE 
4 5 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO DELETE EITHER A 
: ; SPECIFIC SYMBOL OR ALL SYMBOLS FROM A SPECIFIED SYMBOL TABLE. 
r : 3 INPUTS: 
4 591: Rg = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
4 3¢ ; R9 = ADDRESS OF SCRATCH STACK. 
4 33 : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
? 32 3 OUTPUTS: 
4 39 : THE SPECIFIED SYMBOL,IF IT EXISTS, IS DELETED, 
4 598: ELSE NO SUCH SYMBOL IS RETURNED; 
0224 599: OR THE ENTIRE CONTENTS OF THE SPECIFIED TABLE IS DELETED. 
0 4 600 : PERMANENT SYMBOLS ARE NEVER DELETED. 
0224 60¢ 
0224 603 DCLSDELSYM:: ; DELETE SYMBOL FROM TABLE 
57 38 AB 7E 0226 604 MOVAQ PRC_Q_LOCAL(R11),R7 : ASSUME DELETING A SPECIFIC SYMBOL 
58 D4 0228 605 CLRL sR + FROM THE LOC. TABLE WITH /NOLOG 
FDD2 CF H 022A 606 MOVAB LOCTAB,R9 ; 
FDCE® 30 O2eF 607 10$: BSBW  DCLSGETDVAL : GET NEXT RESULT DESCRIPTOR 
55 046 91 «0 608 CMPB ss #PTR_K_ENDLINE, RS : IS THIS THE END OF THE LINE? 
48 13 0235 609 BEQL 0$ : BR IF YES 
55 03 91 0237 610 CMPB 4s #PTR_K_PARAMETR,RS : IS THIS A PARAMETER? 
46 13 O23A 611 BEQL ; BR IF YES 
55 00 91 023c 61g CMPB = WPTR_K_COMDQUAL,R5 : IS THIS A QUALIFIER? 
EE 12 O23F 1 BNEQ 108 : BR IF NO 
FDBC’ 30 0241 614 BSBW DCLSGETNVAL : GET QUALIFIER NUMBER 
00O'8F 51 91 0244 615 CMPR sa R1, @CLISK_DLSY_ALL + /ALL? 
33 13 0248 616 BEQL §=-_-208 : BR IF ALL 
oo'sr 51 91 024A 617 CMPB =—s- R11, @CLISK_DLSY_LOCA : /LOCAL? 
22 13 0 4 618 BEQL 4=s«15$ : BR IF LOCAL TABLE 
00'8F 51 91 0250 619 CMPB =—s R11, #CLISK_DLSY_GLOB : /GLOBAL? 
11 13 0254 620 BEQL 4=s1 26 : BR IF GLOBAL TABLE 
00'8F 4651 «91 «0256 ~=— 621 CMPB =—s-R1 ,#@CLISK_DLSY_LOG : /L0G? 
D3 12 025A 6 : BNEQ 108 : IF NOT, IGNORE 
58 01 BA 025¢ 6 BI1CB #148 : ASSUME /NOLOG 
CD 53 SF 626 BLBS —-R3.1C$ : IT IS /NOLOG. FLAG OK AS IS 
58 01 62 625 BISB «#18 : IT IS /LOG. SET FLAG ACCORDINGLY 
C8 65 6 : BRB 10$ : BR FOR MORE 
57 28 AB 7E 0267 627 12%: | MOVAQ PRC_Q GLOBAL(R11),R7  : SET PROPER TABLE ADDRESS 
F097 CF 9 628 MOVAB G LTA. RS + SET GLOBAL STRING ADDR. FOR /LOG MESS. 
Bp 1 629 BRB 1 : BR FOR MOR 
38 AB 7E 0272 630 15$:  MOVAQ PRC_Q_LOCAL(R11).R7 : MAKE SURE TABLE ADDRESS IS CORRECT 
FDB6 CF H 76 «631 MOVAB LOCTAB.R9 t SET LOCAL STRING ADDR. FOR /LOG MESS. 
Bg 1 7B «66 § BRB $ 3 
ce 02 8 7D 6 ; 20S: B88 ' RB + SET DOING ALL FLAG 
15 58 gt E 635 30$: BS #1,R8,50$ : BR IF DOING ALL 
50 «57 b 6 6 MOVL = R77. : SET TABLE ADDRESS 
FEFD 6 BSBW DCLSSEARCHT : SEARCH THE TABLE FOR THE SYMBOL 
0450 € C 638 BLBC ~=_-«RO, 4 > DEALLOCTE 
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SYMBOL FROM SYMBOL TABLE 


a 
a at 
98 e2§ 50$ MOVL 

9 644 CMPL 

& 645 BEQL 
AS 64 PUSHAB 
a fie ore 
AC 29 BLBC 
AF 929 PUSHAB 
2 es 
Be eS 
cj 655 59$: BRW 

C4 $26 ope: TSTL 
C6 657 708: STATUS 
CD 46658 $B 

CE 659 

CE 660 - END 
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TEST AND DEALLOCATE 


SYMBOL 
EXIT WITH ERRO OR STATUS 


i ! 
$ ; 
UNDSYM ; NO SUCH 
(R7) ,R3 ; 

R7_RS ; DONE 
4 ; BR I 
50$ RETU 
SYM_B_TYPE(R3) ,#SYM_K PERM; P 
608. ; BR I 
R8,59$ ; SKIP 
SYM_T_SYMBOL(R3) ; GET 
R9 ; SET 
#2,R1 ; SET 
#CLI$_DELSYM,RO : SET 
DCLSFORMMSG ; OUTP 
DCLSDEALLOCSYM ; DEAL 
(SP)+ : CLEA 
NORMAL : 


~ 


GET ADDRESS OF NEXT SYMBOL 


YES 
ADDRESS FOR DEALLOCATE 
RMANENT SYMBOL? 


I 
YMBOL N 
LOBAL/LOCAL ASCIC ADOR. 
AO COUNT 2 
ESSAGE Hh} 
T THE a AGE 


IT 
INTERMEDIATE RETURN 


T DEALLOCATE IT 
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PPFL 7 
RECALLPTR é 
RESTART 
SAVAP 
SAVE P 
SEVERITY 
SPWN C 
STACKLM O0A 
“LTSTACKPT A 
PRC“L STATUS 5 
PRC“L-STS 84 
PRC“L-STV 000008 
PRC~L~SYMBOL 
PRC-L—~TMBX 4 
PRE-L-TRALIST 0 iH 
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PTR_L_ENTITY 
SYMOVF 


SYM_8_T 
SYM-K-BINARY 
SYM-K-KEYPA 
SYM—K-PERM 
SYM~L“BL 
SYNE FL 
SYM~T-SYMBOL 
SYM-W"SIZE 
WRK-B-CMDOPT 
WRK-B-MAXPARM 
WRK-B-MINPARM 
WRK-B-PARMCNT 
WRK~B-PARMSUM 
WRK-B-RECALLCNT 
WRK~B-VALLEV 
WRK-B-VERBTYP 
WRK-C"LENGTH 
WRK-G_BUFFER 
WRK-G_INPBUF 


WRK-L-ERRORRTN 
WRK-L-EXPANDPTR 
WRK-L- IMAGE 


WRK_-L_PROMPTRIN 
WRK g 
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AVSP 
SIGNALRTN 
SPECRIN 
TAB_VEC 
V 
F 
F 


$ 
a 


AGS2 
“IMGCHAN 
WIPMPTLEN 


16 
4 


DWDODOMNOOOOGIWIONOCOCOCOCOOOoO 


Os NH NHN NOOCO 


cow 


ONS NE OTS 


On > YS Corn co S rn co Sea 
FAAPNM SUSE MAMAPAVUANV LMM —“Qaianof—Lv ro 


WMH HHMNOMHNO 
Ser SeeTtS 


i Di Di i Di Da Di Bi Di Bi Bi Di De es Di Bs Bi Di Be Bi es Bae ee Bo De Des Dn Bes Do Bes Doe Boe Doe es Den ns De | 
MMROIOMMRIA SOOPrO > 


SEp=1986 98:48:47 EpcL«SRcTStMBOL MAR 1 


02 


Pose 48) 


1 6 
SYMBOL = SYMBOL TABLE MANIPULATION ROUTINES 19 -SEP-1 38¢ 90: 29:35 
Psect synopsis 4-S$ et 4 


pono mene ee monn an % 


! Psect synopsis ! 


i ee 


PSECT name Allocation PSECT No. Attributes 
ABS . 00000000 <( -) 00 ¢ 9.) NOPIC USR CON ABS LCL 
$aBss FFFFFFFC ¢ 1 e NOPIC USR CON ABS LCL 
DCLSZCODE QOOOO2CE (¢ 71 2¢ 2.) NOPIC USR CON REL LCL 
gw ew seen eer ewe en samme nor end 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 8200208 .03 0:00: 1-68 
zonnend processing $8 0: 3: -70 0:00: 2°3 
s 1 239 0:00:08.11 0:00:26.87 
Syabol table sort 0 0:00: Tf 5: : Oe 
s2 114 0:00:01. § :00:07.74 
Syabot table output 25 :00:00.1 0:00:01.17 
Psect synopsis output :00: 5 88 0:00: 8-08 
Cross-reference output +H 7-3 B:92:09-0 
Assembler run totals 46 :00:11.80 0:00:45.68 


The york ing set Limit was 1350 pages. 

39437 bytes ‘ 8 pages) of virtual memory were used to buffer spite intermediate goee- 

There were 40 pages of symbol table space allocated to hold 574 non-local and 34 local symbols. 
source Lines were read in Pass 1, producing 16 object records in Pass 2. 

44 pages of virtual memory were used to define 24 macros. 


$e rer eer reece caccecce (eS me oe Sa 


! ; Macro Library statistics $ 


Soo eee ere remowae ane nae 


Macro library name 


55S$DUA 8: Syst fe 2evseLon8, MLB; 1 0 
$52 titan . tos pce ALB: ' 
a aagbUA ASB: SYSL163STARLET. MLB; 2 4 

TOTALS (all Libraries) 15 


737 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 


as Macro v04-00 
LOCL SRCISYMBOL MARS 


NOSHR NOEXE NORD a NOVEC evTe 
NOSHR RD TE 


T NOVEC BY 
RD NOURT NOVEC BYTE 


MACRO/LIS=LIS$:SYMBOL/OBJ=0BJ$:SYMBOL MSRC$:SYMBOL/UPDATE=(ENHS: SYMBOL) +EXECMLS$/LIB+L 1B$:DCL/LIB*+SYS$LIBRARY : SYSBLDMLB/LIB 
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